home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
util
/
cli
/
0utils.lha
/
0Utils
/
Close.data
< prev
next >
Wrap
Text File
|
1995-08-19
|
1KB
|
66 lines
#ifdef TPLTER
Close = {
Short = {{ Close a filehandle }};
description = {{
Closes an AmigaDOS Filehandle previously
opened with the 'Open' command.
It does no checks to the given Filehandle,
so it should be used carefully.
The Filehandle must not be used after
calling Close on it.
RESULT
-/-
}};
NOTES = {{
! Close is highly dangerous! Do not Use it, if !
! U do not exactly know what U are doing! !
}};
EXAMPLES = {{
> set fh `Open Sys:S/Shell-startup`
> Readln $fh
alias xcopy "copy clone "
> Close $fh
> Unset fh
}};
HISTORY = {{
21-02-95 b_noll created
21-02-95 b_noll added version/format-prefix/offset
20-03-95 b_noll added args diagnostics
19-08-95 b_noll created .data file
}};
Template = "FILEHANDLE/N/A";
Arguments = {{
BPTR *filehandle;
}};
version = "1.1";
body = {{
if (argv->filehandle && *argv->filehandle) {
if (Close (*argv->filehandle)) {
retval = RETURN_OK;
} else {
//PrintFault (IoErr(), GetArgStr());
retval = RETURN_ERROR;
} /* if */
} else {
SetIoErr(ERROR_BAD_NUMBER);
retval = RETURN_ERROR;
} /* if */
}};
};
#endif